object HptFrm: THptFrm
  Left = 0
  Top = 0
  Caption = 'VGA-Bench'
  ClientHeight = 908
  ClientWidth = 788
  Color = clBtnFace
  Constraints.MinHeight = 600
  Constraints.MinWidth = 800
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object glPanel: TPanel
    Left = 64
    Top = 0
    Width = 535
    Height = 754
    Align = alClient
    TabOrder = 0
  end
  object log: TMemo
    Left = 0
    Top = 786
    Width = 788
    Height = 122
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object yAngBar: TTrackBar
    Left = 32
    Top = 0
    Width = 32
    Height = 754
    Align = alLeft
    Max = 360
    Orientation = trVertical
    ParentShowHint = False
    PageSize = 10
    Frequency = 45
    ShowHint = True
    ShowSelRange = False
    TabOrder = 2
    TickMarks = tmTopLeft
    OnChange = yAngBarChange
  end
  object Panel2: TPanel
    Left = 0
    Top = 754
    Width = 788
    Height = 32
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object xAngBar: TTrackBar
      Left = 64
      Top = 0
      Width = 535
      Height = 32
      Align = alClient
      Max = 360
      ParentShowHint = False
      PageSize = 10
      Frequency = 45
      ShowHint = True
      ShowSelRange = False
      TabOrder = 0
      OnChange = xAngBarChange
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 64
      Height = 32
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
    end
    object Panel5: TPanel
      Left = 599
      Top = 0
      Width = 189
      Height = 32
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 2
    end
  end
  object Panel4: TPanel
    Left = 599
    Top = 0
    Width = 189
    Height = 754
    Align = alRight
    TabOrder = 4
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 187
      Height = 407
      Align = alTop
      Caption = 'Einstellungen'
      TabOrder = 0
      object Panel1: TPanel
        Left = 2
        Top = 145
        Width = 183
        Height = 260
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 6
          Width = 101
          Height = 13
          Caption = 'Abstand zw. W'#252'rfeln'
        end
        object Label2: TLabel
          Left = 16
          Top = 107
          Width = 48
          Height = 13
          Caption = 'Aufl'#246'sung'
        end
        object Label3: TLabel
          Left = 16
          Top = 57
          Width = 26
          Height = 13
          Caption = 'Zoom'
        end
        object anzBar: TTrackBar
          Left = 16
          Top = 126
          Width = 150
          Height = 25
          Max = 8
          ParentShowHint = False
          PageSize = 1
          Position = 5
          SelEnd = 8
          SelStart = 6
          ShowHint = True
          TabOrder = 0
          OnChange = anzBarChange
        end
        object colBox: TCheckBox
          Left = 16
          Top = 165
          Width = 97
          Height = 17
          Caption = 'Farbverlauf'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = colBoxClick
        end
        object disBar: TTrackBar
          Left = 16
          Top = 25
          Width = 150
          Height = 25
          Max = 1000
          Min = 100
          ParentShowHint = False
          PageSize = 10
          Frequency = 100
          Position = 100
          ShowHint = True
          ShowSelRange = False
          TabOrder = 2
          OnChange = disBarChange
        end
        object retBtn: TButton
          Left = 47
          Top = 219
          Width = 89
          Height = 25
          Caption = 'Zur'#252'cksetzen'
          TabOrder = 3
          OnClick = retBtnClick
        end
        object vsyBox: TCheckBox
          Left = 16
          Top = 180
          Width = 97
          Height = 17
          Caption = 'VSync'
          TabOrder = 4
          OnClick = vsyBoxClick
        end
        object zoomBar: TTrackBar
          Left = 16
          Top = 76
          Width = 150
          Height = 25
          Max = 100
          Min = 10
          ParentShowHint = False
          PageSize = 5
          Frequency = 10
          Position = 10
          ShowHint = True
          ShowSelRange = False
          TabOrder = 5
          OnChange = zoomBarChange
        end
        object bgBox: TCheckBox
          Left = 16
          Top = 195
          Width = 97
          Height = 17
          Caption = 'Hintergrund'
          Checked = True
          State = cbChecked
          TabOrder = 6
          OnClick = bgBoxClick
        end
      end
      object metBox: TRadioGroup
        Left = 2
        Top = 15
        Width = 183
        Height = 130
        Align = alTop
        Caption = 'Methode'
        ItemIndex = 0
        Items.Strings = (
          'Klassisch'
          'DL - Klassisch'
          'Vertex Array'
          'DL - Vertex Array'
          'Dynamic Vertex Array'
          'Static VBO'
          'Dynamic VBO')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = metBoxClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 1
      Top = 408
      Width = 187
      Height = 296
      Align = alClient
      Caption = 'Benchmark'
      TabOrder = 1
      object benBtn: TBitBtn
        Left = 47
        Top = 22
        Width = 89
        Height = 25
        Caption = 'Benchmark'
        TabOrder = 0
        OnClick = benBtnClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
          44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
          00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
          33833F333383F33300003333AA463362A433333333383F333833F33300003333
          6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
          33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
          6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
          000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
          333383333333F3330000333333322AAA4333333333333833333F333300003333
          333322A4333333333333338333F333330000333333344A433333333333333338
          3F333333000033333336A24333333333333333833F333333000033333336AA43
          33333333333333833F3333330000333333336663333333333333333888333333
          0000}
        NumGlyphs = 2
      end
      object stopBtn: TBitBtn
        Left = 47
        Top = 53
        Width = 89
        Height = 25
        Caption = 'Stopp'
        Enabled = False
        TabOrder = 1
        OnClick = stopBtnClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object ergBtn: TButton
        Left = 47
        Top = 115
        Width = 89
        Height = 25
        Caption = 'Ergebnis'
        Enabled = False
        TabOrder = 2
        OnClick = ergBtnClick
      end
      object optBtn: TButton
        Left = 47
        Top = 84
        Width = 89
        Height = 25
        Caption = 'Optionen'
        TabOrder = 3
        OnClick = optBtnClick
      end
    end
    object fpsBox: TGroupBox
      Left = 1
      Top = 704
      Width = 187
      Height = 49
      Align = alBottom
      Caption = 'Wiederholrate'
      TabOrder = 2
      object fpsLbl: TLabel
        Left = 5
        Top = 15
        Width = 80
        Height = 19
        Caption = '30,00 FPS'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
  end
  object zAngBar: TTrackBar
    Left = 0
    Top = 0
    Width = 32
    Height = 754
    Align = alLeft
    Max = 360
    Orientation = trVertical
    ParentShowHint = False
    PageSize = 10
    Frequency = 45
    ShowHint = True
    ShowSelRange = False
    TabOrder = 5
    TickMarks = tmTopLeft
    OnChange = zAngBarChange
  end
  object fpsQry: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT * FROM FpsTbl WHERE '
      'FpsSes = :FpsSes;')
    Left = 200
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FpsSes'
      end>
    object fpsQryFpsInd: TIntegerField
      FieldName = 'FpsInd'
    end
    object fpsQryFpsVal: TFloatField
      FieldName = 'FpsVal'
    end
    object fpsQryFpsTst: TDateTimeField
      FieldName = 'FpsTst'
    end
    object fpsQryFpsSes: TIntegerField
      FieldName = 'FpsSes'
    end
    object fpsQryFpsTyp: TIntegerField
      FieldName = 'FpsTyp'
    end
    object fpsQryFpsBor: TIntegerField
      FieldName = 'FpsBor'
    end
  end
  object MainMenu1: TMainMenu
    Left = 240
    Top = 112
    object Benchmark1: TMenuItem
      Caption = 'Benchmark'
      object Optionen1: TMenuItem
        Caption = 'Optionen'
        OnClick = optBtnClick
      end
      object Hintergrund1: TMenuItem
        Caption = 'Hintergrund'
        OnClick = Hintergrund1Click
      end
      object Ergebnis1: TMenuItem
        Caption = 'Ergebnis'
        OnClick = ergBtnClick
      end
      object Beenden1: TMenuItem
        Caption = 'Beenden'
        OnClick = Beenden1Click
      end
    end
    object N1: TMenuItem
      Caption = '?'
      object Hilfe1: TMenuItem
        Caption = 'Hilfe'
        OnClick = Hilfe1Click
      end
      object ber1: TMenuItem
        Caption = #220'ber'
        OnClick = ber1Click
      end
      object OpenGLInfo1: TMenuItem
        Caption = 'Open-GL Info'
        OnClick = OpenGLInfo1Click
      end
    end
  end
  object SesQry: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT * FROM SesTbl;')
    Left = 200
    Top = 200
    object SesQrySesInd: TIntegerField
      FieldName = 'SesInd'
    end
    object SesQrySesTst: TDateTimeField
      FieldName = 'SesTst'
    end
    object SesQrySesDis: TFloatField
      FieldName = 'SesDis'
    end
    object SesQrySesZoo: TFloatField
      FieldName = 'SesZoo'
    end
    object SesQrySesCol: TBooleanField
      FieldName = 'SesCol'
    end
    object SesQrySesVsy: TBooleanField
      FieldName = 'SesVsy'
    end
    object SesQrySesRoty: TFloatField
      FieldName = 'SesRoty'
    end
    object SesQrySesRotz: TFloatField
      FieldName = 'SesRotz'
    end
    object SesQrySesDur: TTimeField
      FieldName = 'SesDur'
    end
    object SesQrySesBxH: TStringField
      FieldName = 'SesBxH'
      Size = 10
    end
    object SesQrySesBgr: TBooleanField
      FieldName = 'SesBgr'
    end
  end
  object TypQry: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT * FROM TypTbl;')
    Left = 200
    Top = 264
    object TypQryTypInd: TIntegerField
      FieldName = 'TypInd'
    end
    object TypQryTypNam: TStringField
      FieldName = 'TypNam'
      Size = 30
    end
  end
  object MyCon: TMyEmbConnection
    Database = 'vgabench'
    Options.KeepDesignConnected = False
    Params.Strings = (
      '--basedir=.'
      '--datadir=data'
      '--skip-innodb'
      '--skip-grant-tables')
    Username = 'root'
    LoginPrompt = False
    Left = 168
    Top = 232
  end
  object BenQry: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT * FROM BenTbl WHERE'
      'BenSes = :BenSes'
      'ORDER BY BenInd;')
    Left = 200
    Top = 304
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BenSes'
      end>
    object BenQryBenInd: TIntegerField
      FieldName = 'BenInd'
    end
    object BenQryBenTyp: TIntegerField
      FieldName = 'BenTyp'
    end
    object BenQryBenRes: TIntegerField
      FieldName = 'BenRes'
    end
    object BenQryBenVal: TFloatField
      FieldName = 'BenVal'
    end
    object BenQryBenSes: TIntegerField
      FieldName = 'BenSes'
    end
  end
  object timer: TTimer
    Enabled = False
    Interval = 400
    OnTimer = timerTimer
    Left = 288
    Top = 112
  end
  object ResQry: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT SUM(FpsVal)/COUNT(FpsInd) as '#39'FPS'#39' '
      'FROM FpsTbl WHERE '
      'FpsSes = :FpsSes AND'
      'FpsTyp = :FpsTyp AND'
      'FpsBor = :FpsBor;'
      '')
    Left = 200
    Top = 416
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FpsSes'
      end
      item
        DataType = ftUnknown
        Name = 'FpsTyp'
      end
      item
        DataType = ftUnknown
        Name = 'FpsBor'
      end>
    object ResQryFPS: TFloatField
      FieldName = 'FPS'
    end
  end
  object PlaQry: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT * FROM PlaTbl WHERE PlaChk = TRUE'
      'ORDER BY PlaRei;')
    Left = 240
    Top = 328
    object PlaQryPlaInd: TIntegerField
      FieldName = 'PlaInd'
    end
    object PlaQryPlaTyp: TIntegerField
      FieldName = 'PlaTyp'
    end
    object PlaQryPlaRes: TIntegerField
      FieldName = 'PlaRes'
    end
    object PlaQryPlaChk: TBooleanField
      FieldName = 'PlaChk'
    end
    object PlaQryPlaRei: TIntegerField
      FieldName = 'PlaRei'
    end
  end
  object BenHlpQry: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT * FROM BenTbl WHERE BenInd = :BenInd;')
    Left = 200
    Top = 336
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BenInd'
      end>
    object BenHlpQryBenInd: TIntegerField
      FieldName = 'BenInd'
    end
    object BenHlpQryBenTyp: TIntegerField
      FieldName = 'BenTyp'
    end
    object BenHlpQryBenRes: TIntegerField
      FieldName = 'BenRes'
    end
    object BenHlpQryBenVal: TFloatField
      FieldName = 'BenVal'
    end
    object BenHlpQryBenSes: TIntegerField
      FieldName = 'BenSes'
    end
  end
  object MyQuery1: TMyQuery
    Connection = MyCon
    SQL.Strings = (
      'SELECT * FROM SesTbl;')
    Left = 272
    Top = 232
  end
end
